#!/usr/bin/perl

sub printem
{
  print $_[0];
  print $_[1];
  print $_[2];
  print $_[3];
}

printem(42,17,192,8);
